home *** CD-ROM | disk | FTP | other *** search
- ECHO OFF
- CLS
- ECHO This procedure will backup key files onto four disks, in an LHARC format
- ZDEL /N /K SORT*.DBF
- ZDEL /N /K SORT*.DBT
- ZDEL /N /K TEST*.DBF
- ZDEL /N /K TEST*.DBT
- ZDEL /N /K ARCUST.DBF
- ZDEL /N /K A:BIG-BU.LZH
- CLS
- LHARC A BIG-BU.LZH PROSPECT.DBF
- COPY BIG-BU.LZH A:
- ZDEL /N /K BIG-BU.LZH
- CLS
- IF NOT EXIST A:BIG-BU.LZH GOTO WARN
- GOTO END
- :WARN
- CLS
- ECHO For some reason, BIG-BU.LZH #1 will not copy to your disk drive, A:
- ECHO Check to see if it is either full or has a write protect tab on it.
- :END
- ECHO -
- ECHO Place Big Backup #2 into drive A now.
- ECHO -
- PAUSE
- ZDEL /N /K A:BIG-BU.LZH
- CLS
- LHARC A BIG-BU.LZH PROSPECT.DBT
- COPY BIG-BU.LZH A:
- ZDEL /N /K BIG-BU.LZH
- CLS
- IF NOT EXIST A:BIG-BU.LZH GOTO WARN1
- GOTO END1
- :WARN1
- CLS
- ECHO For some reason, BIG-BU.LZH #2 will not copy to your disk drive, A:
- ECHO Check to see if it is either full or has a write protect tab on it.
- :END1
- ECHO -
- ECHO Place Big Backup #3 into drive A now.
- ECHO -
- PAUSE
- ZDEL /N /K A:BIG-BU.LZH
- CLS
- LHARC A BIG-BU.LZH ACT1.DBF
- COPY BIG-BU.LZH A:
- ZDEL /N /K BIG-BU.LZH
- CLS
- IF NOT EXIST A:BIG-BU.LZH GOTO WARN2
- GOTO END2
- :WARN2
- CLS
- ECHO For some reason, BIG-BU.LZH #3 will not copy to your disk drive, A:
- ECHO Check to see if it is either full or has a write protect tab on it.
- :END2
- ECHO -
- ECHO Place Big Backup #4 into drive A now.
- ECHO -
- PAUSE
- ZDEL /N /K A:BIG-BU.LZH
- CLS
- LHARC A BIG-BU.LZH ACT1.DBT
- LHARC U BIG-BU.LZH PARTEST.DB?
- COPY BIG-BU.LZH A:
- ZDEL /N /K BIG-BU.LZH
- CLS
- IF NOT EXIST A:BIG-BU.LZH GOTO WARN3
- GOTO END3
- :WARN3
- CLS
- ECHO For some reason, BIG-BU.LZH #4 will not copy to your disk drive, A:
- ECHO Check to see if it is either full or has a write protect tab on it.
- :END3
- ECHO -